home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21a.d64 / listing 25 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  657b  |  20 lines
  1. 10 REM ******* VERSCHIEBEN MIT DEM BLOCK-PROGRAMM *******
  2. 20 PRINTCHR$(147):REM C 128 = WAIT0,1
  3. 30 POKE53280,0:POKE53281,5
  4. 40 POKE241,1:REM C64 = POKE646,1
  5. 50 REM ----- FARBRAM BELEGEN -----
  6. 60 FOR I=0 TO 1000:POKE55296+I,1:NEXTI:REM DAUERT EIN WENIG!
  7. 70 REM ----- BILDSCHIRM BELEGEN -----
  8. 80 S=1504:REM STARTADRESSE QUELLE
  9. 90 FOR I=0 TO 39:POKES+I,I:NEXTI
  10. 100 REM ----- PARAMETER ABFRAGEN -----
  11. 110 INPUT"WIEVIELE BYTES (SINNVOLL 0 BIS 40)";N
  12. 120 INPUT"ZIELORT (SINNVOLL 1024 BIS 1984)";Z
  13. 130 REM ----- BERECHNEN UND UEBERGABE -----
  14. 140 A=INT(S/256):POKE255,A:POKE254,S-256*A
  15. 150 A=INT(Z/256):POKE253,A:POKE252,Z-256*A
  16. 160 A=INT(N/256):POKE251,A:POKE250,N-256*A
  17. 170 REM ----- VERSCHIEBEN -----
  18. 180 SYS4864:REM C64 = SYS 49152
  19. 190 END
  20.